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BASSSCRATCH 18-36 -1984 01:12: AX-11 Bliss-32 V4.0-74 Pa 1 

1 ~3e0n 38 teat at EBASRTL SRC IBASSCRATC.B 2:1 - (1) 
3 1 MODULE BASSSCRATCH ( ' Basic SCRATCH onggruct 
: § pbent = '1=004' ! File: BASSCRATC.6 
; 4 04 1 BEGIN 
: $ a8 : leueeeeeeaeecceceeeeneoereenrerereesecrerteceecreenetnesneneneenerneeantnts 
PY .-* ry 
PF 8 $8 1 !® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY e 
; 009 1 !'* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
H 19 Bate } :: ALL RIGHTS RESERVED. . 
: \§ pots 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ® 
3 1 1 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE « 
s % 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
; 15 0015 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 18 pore 1 !@ QTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; \ id : :: TRANSFERRED. . 
; 19 $019 1 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; $f 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 $3 4 1 : CORPORATION. : 
; 00 ¢ 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: 4 00246 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
3 5 0025 1 !* * 
; & 00 $ 1 !e * 
: $i 85 2 ’ "miata kata cineca atari tianlian laine inacinl 
: 29 00 9 1 
; 0 030 1 !4+4 
$ 1 0031 1 ! FACILITY: 
s § 4 ¢ ; : Basic support library - user callable 
; 34 0034 1 ' ABSTRACT: 
3 2 0035 1! This module is the UPI level of the Basic SCRATCH construct. Initially, 
; +4 $ 74 it contains only the code for sequential 1/0. This module will set 
; 38 sit F4 : up the 1/0 data base for the LUN and go directly to the REC level. 
: 39 0039 1! 
3 40 0040 1 ! ENVIRONMENT: 
HY $3 ones ! : User access mode - AST reentrant. 
: rt Does : : AUTHOR: Donald G. Petersen, CREATION DATE: 27-Feb-79 
; 45 3 i MODIFIED BY: 
; & $ 13 DGP, 27-Feb-79 : VERSION 01 
: 48 0048 1 ! 1-001 = original. DOGP 27-Feb-7 
:; 69 9 1! 1-0 § = Include SWITCHES declaration. DGP gio eunn79 
; 50 30 1 | 1-003 - Set up ISBSA_USER_FP. | JBS 25-JUL-1979 
> a tt : : 1- - Check for virtual array use of this file. DGP 16-Oct-79 
: 3g 0988 ee 
; 54 54 1 !<BLF/PAGE> 


A ay 


cr 


—— 


; 
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rm md td a at ts od sn ts et ot = wd ot = = 4 = = as 


SWITCHES 


AX=11 Blisg-32 V4.0-74 


P 
BASRTL.SRC JBASSCRATC.852;1 sot (25 


SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


LINKAGES 


REQUIRE ‘RTLIN:OTSLNK'; 
' 


; TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSSCRATCH : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘RTLML:OTSISB'; 
REQUIRE *RTLML:OTSLUB’; 
REQUIRE *RTLIN:RTLPSECT’; 
LIBRARY ‘RTLS?ARLE'; 


MACROS: 
NONE 
EQUATED SYMBOLS: 
NONE 


PSECT DECLARATIONS: 

ECLARE_PSECTS (BAS); 
OWN STORAGE: 

i NONE 

i EXTERNAL REFERENCES: 


‘ 
. 
' 
. 
t 
. 
] 
+ 
i 
. 
‘ 
. 
' 
‘ 
. 
' 
o 
! 
+ 
7 
. 
. 


EXTERNAL ROUTINE 
BASSSSTOP_10 : NOVALUE 
BASSSREC_SSE : JSB_RECO NOVALUE, 


BAS$$CB_PUSH . JSB_CB_PUSH NOVALUE, 
BAS$$(B-POP : JSB_CB_POP NOVALUE; 


Define all Linkages 


UPI Level Sequential SCRATCH 


ISB definitions 

LUB definitions 

Define DECLARE_PSECTS macro 
Starlet system macros 


Signal fatal BASIC 1/0 error 

REC Level process ing - RMS interface 
SCRATCH sequential 

Load reg ster CCB 

Done with register CCB 


—— | 


PaaS ne ea et it nes 


epgeear ~Sep-196e 11:58:99 ensRnesneieasstratc.es2:1 "#8 23 


113 1 
: 114 1 te 
: 11? ; } The following are the error codes used in this module. 
; 119 SB 
; ‘3 5 1 EXTE LITERAL 
tai $ 1 BASSK_ILLILLACC : UNSIGNED (8). ! Illegal or wesegrest access 
3 130 i , BASSK_IO_CHANOT : UNSIGNED (8); ! 1/0 channel not op 


'¢ 
! Allocate the LUB/ISB/RAB for this unit if necessary. Store new (CB (con- 
: trol block) in OTSS$A_CUR_LUB. Store signed unit number in LUBSW_LUN. 
; I 


oT 
BASS$$CB_PUSH gum - LUBSK_ILUN MIN); 


T - 
CCB CISBSA_USER_FP) = .FMP"CSFSC_SAVE_FP); 


12 a 
BASSSCRATCH 1b-Se “19 1:12: AX-11 Bliss-32 V4.0-74 P 4 8 
mt 12-8 08-198e 91ib8i%9 BASRTL.SRC BAsstRayc 6$2:1 4 (3) 1 
; 123 1 GLOBAL ROUTINE BASSSCRATCH ( ' SCRATCH sequential ; 
; 126 9 1 UNIT ! logical unit number ; 
3 : 5 , : ) : NOVALUE = : 
se $ 1 144 : 
3 } 3 , : : FUNCTIONAL DESCRIPTION: : 
: 4 9 3 1 i This routine will set up the 1/0 data base for this LUN if necessary : 
; 131 9 1! and then go directly to the REC level. When control is returned to 3 
. a ¢ 8 1! this routine, it pops the CCB off of the 1/0 system. The actual inter- 3 
$ ; 223 : H face to RMS is done at the REC level. The file is truncated at the current record. 3 
: 5 1 i FORMAL PARAMETERS: : 
: 1 303 1/ UNIT. rlu.v logical unit umber : 
= 2 964 1! 
3; 139 965 1 ! IMPLICIT INPUTS: 
; 140 34 1! 
3: «(141 967 1! LUBSV_VA_USE virtual array use on this file 
3 by 3268 : LUBSV~READ_ONLY file is read only 
: 144 $970 1 | IMPLICIT OUTPUTS: 
3 «6165 0971 1! 
3 138 0972 1! ISBSB_STTM_TYPE the statement type 
; 14 9735 1! LUBSV~BLK_OSE block use on this file 
; 148 74 «1:5! 
: 149 0975 1 ! COMPLETION CODES: 
3s 150 0976 1! 
3: 151 977 11! NONE 
; 13¢ 978 1! 
3; 15 0979 1 ! SIDE EFFECTS: 
3 «6154 0980 1! 
g 355 0981 1! Stonals: 
g 138 0982 1! BAS$K_IO_CHANOT (1/0 channel not open) 
; «15 0983 1! BASSK_ILCILLACC (illegal or illogical access) 
3 138 0984 1! 
3; 159 0985 1 !-- 
: 160 g386 1 
; 16) 34 BEGIN 
; 188 0989 BUILTIN 
3: «164 0990 FP; 
; 165 0991 
5 166 444 GLOBAL REGISTER 
; 16 99 CCB = K_CCB_REG : REF BLOCK [, BYTE); 
; 168 0994 
: 199 5 LOCAL 
: 170 396 FMP : REF BLOCK C, BYTE); 
s 171 
: 176 8 FMP = .FP; 
.: or 
3 «176 
i ihe 
; 177 
: 179 


BASSSCRATCH 
i808 


J 


Se Se ee Ge Ge Ge ee SH Ge Se Se FH Se Ge SH Ge ee Se Se Se Ge Ge 
ROR a st tS SS SS SS SS Ss SS YS I 1 YH YU 
SSSSLSSESLSSSELSS 


3 Routine Size: 


K 12 
16-Sep-1 


ereeen 188s 1:88:45 HBAsat eke Saagstaaye 692: 


! If the channel is not open, give an error message. 
: SCRATCH is not valid on uait’6. ° 


!End of BASSSCRATCH 


BASSSCRATCH 
\1-004\ 


BASSSSTOP_10, BASSSREC_SSE 
BASS$$CB_POSH, BAS$$CB_PoP 
BASS$SK_ICLILLACC 
BAS$K~10_CHANOT 


-BASSCODE ,NOWRT, SHR, PIC,2 


BASSSCRATCH, Save R2.R3,R4,R5,R11 
BASS$ST0P_10, R4 


H 


S 

1 

0 _CHANOT, -(SP) 

$STop 10 
(CCBY 
2$ 

#2, -4(€CB), 3$ 

TELILLACC, -(SP) 
#1, BAS STOP_10 


#2. -1(CC 
BASSSREC_SSE 


1 
1 
10 
iy IF ( NOT .CCB CLUBSV_OPENED]) THEN BASSSSTOP_IO (BASSK_IO_CHANOT); 
191 '¢ 
1 ig ! Now that the data base is in place, store the statement type and go 
1 i directly to the REC level. 
: \$ io CCB CISBSB_STTM_TYPE] = ISBSK_ST_TY_SCR; 
: 18 Check for virtual array usage and set block usage 
is 0 ‘ If .CCB CLUBSV_VA yse3 OR .CCB CLUBSV_READ_ONLY] THEN BASSSSTOP_IO(BASS$K_ILLILLACC); 
1021 CCB CLUB$V_BLK-USE) = 1; 
13 § BASSSREC_SSE (J; 
10 4 Now that the SCRATCH has been done, pop the CCB off the 1/0 system. 
19e6 BASSSCB_POP (); 
102 END; 
TITLE 
~ IDENT 
mrt 
eEXTRN 
~EXTRN 
EXTRN 
PSECT 
083C 00000 ENTRY 
$4 coos oe ee dae ae 
50 08 cf 000C MNEGL 
52 3 AC 00 Q000F MOVL 
000000006 06 1 3 13 JSB8 
ra re AB ORB OOOIE BLBS 
el 2:1 Rae 
FF71 C¢ 6 98 A 1$ MOVB 
o ore OEE RSS 
4 006 . 5A ? 23 att y 
FF AB : F 3$ B1SB8 
49494 $43 ? 3 JSB 
00000006 1 4 JSB 
04 0004F RET 


80 bytes, Routine Base: _BASSCODE + 0000 


BAS$$CB_POP 


—@ 


12 
iB-Seo-19Rs 1:24) YAK=H1 BLisg=32 4.00742, Page 6 


ND !End of module - BASSSCRATC 


—_ tp 


PASSPCRATER 


: 


; PSECT SUMMARY 
; Name Bytes Attributes 
: _BASSCODE 80 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


; 
; eccccees Symbols o-oo Pages Processing | 
; File Total Loaded Percent Mapped Time 
: _$255S$DUA28:CSYSLIBISTARLET.L32;1 9776 1 0 581 00:01.1 | 

} 

| 
; COMMAND QUALIFIERS 
; SL ESSPEME CK CF SLD, SUE EM. APT DEES DIONE A, SOA SOP ENON ERNE PR ER ORETC NATE MSRC$:BASSCRATC/UPDATE=(ENHS$:BASSCRATC 
3 

Size: 80 code + 0 data bytes 
Ti 708.2 


| 
Run Time: 708. 
Elapsed Time: 00:21.1 | 
Lines/CPU Min: 7525 
Lexemes/CPU-Min: 45386 
es | Used: 113 pages 
Compilation Complete 


. 
e 
° 
° 
7 
a 
. 
° 
2 
e 
e 
. 
& 
7 
° 
° 
. 
ca 
> 
° 
. 
° 
. 
° 
* 
e 
a 
e 
- 
« 
° 
@ 
° 
oa 
” 
° 
. 
é 
“ 
© 
* 
6 
. 
e 
. 
é 
° 
© 
s 
. 
. 
o 
. 
° 
° 
e 
° 
o 
> 
o 
° 
° 
a 
o 
. 
ca 
. 
- 
* 
* 
° 
# 
* 
e 
° 
° 
* 
a 
* 
6 
: 
¢ 
‘ 
€ 
‘ 
o 
. 
4 
‘ 
. 

‘ 

‘ 
o 

‘ 
‘ 

: 
‘ 

‘ 

‘ 
‘ 

‘ 
: 

‘ 
‘ 

‘' 
‘ 

' 
‘ 

' 
‘ 


003 AH-BT13A-SE 


VAX/VMS V4.0 | | D PROPRIETARY | 


